home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
t2win_32.zip
/
_TILE.FRM
< prev
next >
Wrap
Text File
|
1996-05-14
|
998b
|
53 lines
VERSION 4.00
Begin VB.Form frmTile
Caption = "TileBitmap"
ClientHeight = 3375
ClientLeft = 1140
ClientTop = 1515
ClientWidth = 4980
Height = 3780
Left = 1080
MDIChild = -1 'True
ScaleHeight = 3375
ScaleWidth = 4980
Top = 1170
Width = 5100
End
Attribute VB_Name = "frmTile"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Private Const Iteration = 25
Dim IsLoaded As Integer
Dim TimerStartOk As Integer
Dim TimerCloseOk As Integer
Dim TimerHandle As Integer
Dim TimerValue As Long
Private Sub Form_Load()
IsLoaded = False
Show
IsLoaded = True
End Sub
Private Sub Form_Paint()
Dim intResult As Integer
intResult = cTileBitmapOnWindow(Me.hWnd, App.Path + "\time2win.dib")
End Sub